home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / file / ro_v091.lha / RO / ARexx / Action.RO next >
Encoding:
Text File  |  1995-01-19  |  616 b   |  42 lines
  1. /* 
  2.  
  3.    $VER: Action.RO 0.1
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
  7.  
  8.    Function:
  9.     Starts a fileaction for the specified file. 
  10.     If RO is not running it's loaded automatically.
  11.  
  12.    Requires:
  13.     RO 0.90 or newer in the AmigaDOS search path
  14.  
  15.    Example:
  16.     Rx >NIL: REXX:Action.RO S:Startup-Sequence
  17.  
  18. */
  19.  
  20. PARSE ARG FileName
  21.  
  22. IF ~SHOW('Ports','RO.1') THEN
  23.  DO
  24.  
  25.   ADDRESS 'COMMAND' 'Run >NIL: RO ICONIFY'
  26.   ADDRESS 'COMMAND' 'WaitForPort RO.1'
  27.  
  28.   IF ~SHOW('Ports','RO.1') THEN
  29.    DO
  30.     EXIT 10
  31.    END
  32.  END
  33.  
  34. ADDRESS 'RO.1'
  35. OPTIONS RESULTS
  36.  
  37. 'Sleep'
  38.  
  39. 'FileAction '||FileName
  40.  
  41. 'Wakeup'
  42.